home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 March / macformat-048.iso / Demos / Musee d'Orsay / ORSAY / DATAOR / DEJEUN.DXR / 00043.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  312 b   |  14 lines
  1. on fadesoundout
  2.   set volson to the volume of sound 1
  3.   repeat while volson > 20
  4.     put volson
  5.     set the volume of sound 1 to the volume of sound 1 - 2
  6.     set volson to the volume of sound 1
  7.     if the mouseDown then
  8.       quit()
  9.     end if
  10.   end repeat
  11.   sound stop 1
  12.   set the volume of sound 1 to 180
  13. end
  14.